home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / pob396_3.zip / POB396LS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-12  |  4KB  |  285 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  TINTEGER010(6)
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     String   STRING001
  34.     String   STRING002
  35.     String   STRING003
  36.     String   STRING004
  37.     String   STRING005
  38.     String   STRING006
  39.     String   STRING007
  40.     String   STRING008
  41.     String   STRING009
  42.     String   STRING010
  43.     String   STRING011
  44.     String   STRING012
  45.     String   STRING013
  46.     String   STRING014
  47.     String   STRING015
  48.     Int      INT001
  49.     Int      INT002
  50.  
  51. ;------------------------------------------------------------------------------
  52.  
  53.     STRING014 = TokenStr()
  54.     Tokenize STRING014
  55.     INTEGER005 = 1
  56.     STRING015 = "@X87_@X07"
  57.     While (TokCount() > 0) Do
  58.         TINTEGER010(INTEGER005) = GetToken()
  59.         Inc INTEGER005
  60.     EndWhile
  61.     INTEGER003 = ReadLine(PPEPath() + PPEName() + ".CNF", 1)
  62.     INTEGER011 = ReadLine(PPEPath() + PPEName() + ".CNF", 2)
  63.     INTEGER014 = ReadLine(PPEPath() + PPEName() + ".CNF", 3)
  64.     STRING009 = ReadLine(PPEPath() + PPEName() + ".CNF", 4)
  65.     STRING011 = ReadLine(PPEPath() + PPEName() + ".CNF", 5)
  66.     STRING002 = ReadLine(PPEPath() + PPEName() + ".CNF", 6)
  67.     STRING003 = ReadLine(PPEPath() + PPEName() + ".CNF", 7)
  68.     STRING004 = ReadLine(PPEPath() + PPEName() + ".CNF", 8)
  69.     STRING007 = ReadLine(PPEPath() + PPEName() + ".CNF", 9)
  70.     STRING008 = ReadLine(PPEPath() + PPEName() + ".CNF", 10)
  71.     STRING005 = ReadLine(PPEPath() + PPEName() + ".CNF", 11)
  72.     STRING006 = ReadLine(PPEPath() + PPEName() + ".CNF", 12)
  73.     STRING011 = STRING011 + " *** POB396LS 2.00 POB(c)1995 ***  "
  74.     INTEGER004 = 64
  75.     INTEGER009 = Len(STRING011)
  76.     INTEGER002 = 3
  77.     AnsiPos 1, INTEGER011
  78.     DispFile PPEPath() + "396", 1 + 2 + 4
  79.     Print " ? "
  80.     INTEGER012 = GetX()
  81.     INTEGER013 = GetY()
  82.     INT002 = 78 - INTEGER012
  83.     Print STRING015
  84.     INTEGER005 = 0
  85.     INTEGER007 = 76
  86.     GetUser
  87.     If (U_Expert == 0) Goto LABEL014
  88.     :LABEL001
  89.     Gosub LABEL019
  90.     Delay 1
  91.     Goto LABEL001
  92.     :LABEL002
  93.     Cls
  94.     STRING010 = CurConf()
  95.     Dec STRING010
  96.     STRING001 = STRING010
  97.     KbdStuff "J" + ";" + STRING001 + ";" + "Q" + Chr(13)
  98.     End
  99.     :LABEL003
  100.     Cls
  101.     STRING010 = CurConf()
  102.     Inc STRING010
  103.     STRING001 = STRING010
  104.     KbdStuff "J" + ";" + STRING001 + ";" + "Q" + Chr(13)
  105.     End
  106.     :LABEL004
  107.     Cls
  108.     KbdStuff "G" + Chr(13)
  109.     End
  110.     :LABEL005
  111.     Cls
  112.     KbdStuff "D" + Chr(13)
  113.     End
  114.     :LABEL006
  115.     Cls
  116.     KbdStuff "U" + Chr(13)
  117.     End
  118.     :LABEL007
  119.     Cls
  120.     KbdStuff STRING002 + Chr(13)
  121.     End
  122.     :LABEL008
  123.     Cls
  124.     KbdStuff STRING003 + Chr(13)
  125.     End
  126.     :LABEL009
  127.     Cls
  128.     KbdStuff STRING007 + Chr(13)
  129.     End
  130.     :LABEL010
  131.     Cls
  132.     KbdStuff STRING008 + Chr(13)
  133.     End
  134.     :LABEL011
  135.     Cls
  136.     KbdStuff STRING004 + Chr(13)
  137.     End
  138.     :LABEL012
  139.     Cls
  140.     KbdStuff STRING005 + Chr(13)
  141.     End
  142.     :LABEL013
  143.     Cls
  144.     KbdStuff STRING006 + Chr(13)
  145.     End
  146.     :LABEL014
  147.     INTEGER005 = 2
  148.     INTEGER006 = 1
  149.     :LABEL015
  150.     If (INTEGER005 + INTEGER007 > INTEGER009 + 1) Goto LABEL016
  151.     INTEGER008 = 1
  152.     INTEGER006 = 1
  153.     AnsiPos INTEGER002, INTEGER003
  154.     Print STRING009, Mid(STRING011, INTEGER005, INTEGER007)
  155.     Inc INTEGER005
  156.     Goto LABEL017
  157.     :LABEL016
  158.     AnsiPos INTEGER002, INTEGER003
  159.     Print Mid(STRING011, INTEGER005 + 1, INTEGER007 - INTEGER006)
  160.     Inc INTEGER006
  161.     If (INTEGER005 >= INTEGER009) Then
  162.         INTEGER005 = 1
  163.     Else
  164.         Inc INTEGER005
  165.     Endif
  166.     Print Mid(STRING011, 0, INTEGER008)
  167.     Inc INTEGER008
  168.     :LABEL017
  169.     For INTEGER001 = 1 To INTEGER014
  170.         Gosub LABEL019
  171.         Delay 1
  172.     Next
  173.     Goto LABEL015
  174.     :LABEL018
  175.     KbdStuff "MENU" + Chr(13)
  176.     End
  177.     :LABEL019
  178.     STRING012 = Inkey()
  179.     If (STRING012 == "") Return
  180.     If (STRING012 == "LEFT") Goto LABEL002
  181.     If (STRING012 == "RIGHT") Goto LABEL003
  182.     If (STRING012 == "UP") Goto LABEL006
  183.     If (STRING012 == "DOWN") Goto LABEL005
  184.     If (STRING012 == "HOME") Goto LABEL007
  185.     If (STRING012 == "END") Goto LABEL008
  186.     If (STRING012 == "INS") Goto LABEL009
  187.     If (STRING012 == "DEL") Goto LABEL010
  188.     If (STRING012 == Chr(9)) Goto LABEL011
  189.     If (STRING012 == "PGUP") Goto LABEL012
  190.     If (STRING012 == "PGDN") Goto LABEL013
  191.     If (STRING012 == Chr(27)) Goto LABEL004
  192.     INT001 = Len(STRING013)
  193.     AnsiPos INTEGER012, INTEGER013
  194.     If (STRING012 == Chr(8)) Then
  195.         If (INT001 > 0) Then
  196.             ClrEol
  197.             STRING013 = Mid(STRING013, 1, Len(STRING013) - 1)
  198.             INT001 = INT001 - 1
  199.         Endif
  200.     Else
  201.         STRING013 = STRING013 + STRING012
  202.         INT001 = INT001 + 1
  203.     Endif
  204.     If (INT001 > INT002) Then
  205.         Print Right(STRING013, INT002) + STRING015
  206.     Else
  207.         Print STRING013 + STRING015
  208.     Endif
  209.     If (STRING012 <> Chr(13)) Return
  210.     ClrEol
  211.     If (STRING013 == Chr(13)) Goto LABEL018
  212.     KbdString STRING013
  213.     End
  214.  
  215. ;------------------------------------------------------------------------------
  216. ;
  217. ; Usage report (before postprocessing)
  218. ;
  219. ; ■ Statements used :
  220. ;
  221. ;    14      End
  222. ;    12      Cls
  223. ;    2       ClrEol
  224. ;    29      Goto 
  225. ;    42      Let 
  226. ;    7       Print 
  227. ;    23      If 
  228. ;    1       DispFile 
  229. ;    1       GetUser
  230. ;    2       Gosub 
  231. ;    2       Return
  232. ;    2       Delay 
  233. ;    6       Inc 
  234. ;    1       Dec 
  235. ;    1       Tokenize 
  236. ;    13      KbdStuff 
  237. ;    4       AnsiPos 
  238. ;    1       KbdString 
  239. ;
  240. ;
  241. ; ■ Functions used :
  242. ;
  243. ;    57      +
  244. ;    4       -
  245. ;    16      ==
  246. ;    1       <>
  247. ;    1       <
  248. ;    1       <=
  249. ;    4       >
  250. ;    3       >=
  251. ;    6       !
  252. ;    2       &&
  253. ;    1       ||
  254. ;    3       Len(
  255. ;    4       Mid()
  256. ;    1       Right()
  257. ;    18      Chr()
  258. ;    1       Inkey()
  259. ;    2       CurConf()
  260. ;    13      PPEPath()
  261. ;    12      ReadLine()
  262. ;    1       GetToken()
  263. ;    1       TokenStr()
  264. ;    1       GetX()
  265. ;    1       GetY()
  266. ;    12      PPEName()
  267. ;    1       TokCount()
  268. ;
  269. ;------------------------------------------------------------------------------
  270. ;
  271. ; Analysis flags : No flag
  272. ;
  273. ;------------------------------------------------------------------------------
  274. ;
  275. ; Postprocessing report
  276. ;
  277. ;    1       For/Next
  278. ;    1       While/EndWhile
  279. ;    4       If/Then or If/Then/Else
  280. ;    0       Select Case
  281. ;
  282. ;------------------------------------------------------------------------------
  283. ;                 AEGiS Corp - Break the routines, code against the machines!
  284. ;------------------------------------------------------------------------------
  285.